home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / subdatab.zip / D2UNIT1.DFM / D2UNIT1.txt
Text File  |  1996-04-02  |  2KB  |  103 lines
  1. object Form1: TForm1
  2.   Left = 173
  3.   Top = 82
  4.   Width = 496
  5.   Height = 453
  6.   Caption = 'SUBDatabase Demo2'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poScreenCenter
  13.   OnCreate = FormCreate
  14.   OnDestroy = FormDestroy
  15.   TextHeight = 16
  16.   object Panel4: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 484
  20.     Height = 422
  21.     Align = alClient
  22.     TabOrder = 0
  23.     object BitBtnClose: TBitBtn
  24.       Left = 344
  25.       Top = 376
  26.       Width = 97
  27.       Height = 33
  28.       Caption = '&Close'
  29.       TabOrder = 0
  30.       OnClick = BitBtnCloseClick
  31.       Kind = bkClose
  32.     end
  33.     object Button7: TButton
  34.       Left = 25
  35.       Top = 16
  36.       Width = 416
  37.       Height = 49
  38.       Caption = 'add 200 records'
  39.       TabOrder = 1
  40.       OnClick = ButtonaddClick
  41.     end
  42.     object ButtonStatus: TButton
  43.       Left = 33
  44.       Top = 376
  45.       Width = 80
  46.       Height = 33
  47.       Caption = 'Status'
  48.       TabOrder = 2
  49.       OnClick = ButtonStatusClick
  50.     end
  51.     object ButtonReorg: TButton
  52.       Left = 185
  53.       Top = 376
  54.       Width = 80
  55.       Height = 33
  56.       Caption = 'Reorg'
  57.       TabOrder = 3
  58.       OnClick = ButtonReorgClick
  59.     end
  60.     object Panel1: TPanel
  61.       Left = 24
  62.       Top = 312
  63.       Width = 417
  64.       Height = 41
  65.       TabOrder = 4
  66.     end
  67.     object Buttondelete: TButton
  68.       Left = 25
  69.       Top = 80
  70.       Width = 416
  71.       Height = 49
  72.       Caption = 'delete 100 records'
  73.       TabOrder = 5
  74.       OnClick = ButtondeleteClick
  75.     end
  76.     object ListBox1: TListBox
  77.       Left = 24
  78.       Top = 192
  79.       Width = 417
  80.       Height = 105
  81.       ItemHeight = 16
  82.       TabOrder = 6
  83.     end
  84.     object Button1: TButton
  85.       Left = 25
  86.       Top = 136
  87.       Width = 416
  88.       Height = 49
  89.       Caption = 'show 100 records'
  90.       TabOrder = 7
  91.       OnClick = ButtonshowClick
  92.     end
  93.   end
  94.   object SUBDataBase1: TSUBDataBase
  95.     DataBaseName = 'bigdemo2.sub'
  96.     Active = False
  97.     OnReorg = SUBDataBase1Reorg
  98.     OnCreate = SUBDataBase1Create
  99.     Left = 448
  100.     Top = 128
  101.   end
  102. end
  103.